home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Updates / AmigaOS3.5 / ReportGen / ReportGen.rexx < prev    next >
OS/2 REXX Batch file  |  2000-05-16  |  3KB  |  205 lines
  1. /* ReportGen Commodity demo and documentation script */
  2.  
  3. /****** ReportGenCx/SAVE **************************************
  4.  
  5.    NAME
  6.       SAVE
  7.  
  8.    SYNOPSIS
  9.       void = HIDE
  10.  
  11.    FUNCTION
  12.       Saves the current settings.
  13.  
  14.    INPUTS
  15.       none
  16.  
  17.    RESULT
  18.      none
  19.  
  20. **************************************************************************
  21.  
  22. */
  23.  
  24. /****** ReportGenCx/HIDE **************************************
  25.  
  26.    NAME
  27.       HIDE
  28.  
  29.    SYNOPSIS
  30.       result = HIDE
  31.  
  32.    FUNCTION
  33.       hides the application window
  34.  
  35.    INPUTS
  36.       none
  37.  
  38.    RESULT
  39.      result - returns FALSE if not successful
  40.  
  41. **************************************************************************
  42.  
  43. */
  44.  
  45. /****** ReportGenCx/UNHIDE **************************************
  46.  
  47.    NAME
  48.       UNHIDE
  49.  
  50.    SYNOPSIS
  51.       result = UNHIDE
  52.  
  53.    FUNCTION
  54.       restores the application window
  55.  
  56.    INPUTS
  57.       none
  58.  
  59.    RESULT
  60.       result - returns FALSE if not successful
  61.  
  62. **************************************************************************
  63.  
  64. */
  65.  
  66. /****** ReportGenCx/ICONIFY **************************************
  67.  
  68.    NAME
  69.       ICONIFY
  70.  
  71.    SYNOPSIS
  72.       result = ICONIFY
  73.  
  74.    FUNCTION
  75.       iconifies the application
  76.  
  77.    INPUTS
  78.       none
  79.  
  80.    RESULT
  81.       1 if successful, 0 for failure
  82.  
  83. **************************************************************************
  84.  
  85. */
  86.  
  87. /****** ReportGenCx/UNICONIFY **************************************
  88.  
  89.    NAME
  90.       UNICONIFY
  91.  
  92.    SYNOPSIS
  93.       result = UNICONIFY
  94.  
  95.    FUNCTION
  96.       uniconifies the application
  97.  
  98.    INPUTS
  99.       none
  100.  
  101.    RESULT
  102.       result - 1 if successful, 0 for failure
  103.  
  104. **************************************************************************
  105.  
  106. */
  107.  
  108. /****** ReportGenCx/VERSION **************************************
  109.    NAME
  110.       VERSION
  111.  
  112.    SYNOPSIS
  113.       result = VERSION
  114.  
  115.    FUNCTION
  116.       returns the version string
  117.  
  118.    INPUTS
  119.       none
  120.  
  121.    RESULT
  122.       result - returns the version string of ReportGenCx
  123.  
  124. **************************************************************************
  125.  
  126. */
  127.  
  128. /****** ReportGenCx/AUTHOR **************************************
  129.    NAME
  130.       AUTHOR
  131.  
  132.    SYNOPSIS
  133.       result = AUTHOR
  134.  
  135.    FUNCTION
  136.       returns the author information
  137.  
  138.    INPUTS
  139.       none
  140.  
  141.    RESULT
  142.       result - returns the author string of ReportGenCx
  143.  
  144. **************************************************************************
  145.  
  146. */
  147.  
  148. /****** ReportGenCx/QUIT **************************************
  149.  
  150.    NAME
  151.       QUIT
  152.  
  153.    SYNOPSIS
  154.       void = QUIT
  155.  
  156.    FUNCTION
  157.       quits the application
  158.  
  159.    INPUTS
  160.       none
  161.  
  162.    RESULT
  163.       none
  164.  
  165. **************************************************************************
  166.  
  167. */
  168.  
  169. options results
  170.  
  171. ADDRESS REPORTGEN.1
  172.  
  173. say 'Hiding..'
  174. HIDE
  175.  
  176. Call mywait()
  177. say 'UnHiding..'
  178. UNHIDE
  179.  
  180. Call mywait()
  181. say 'Iconify..'
  182. ICONIFY
  183.  
  184. Call mywait()
  185. say 'UnIconify..'
  186. UNICONIFY
  187.  
  188. Call mywait()
  189. VERSION
  190. say 'Version: 'RESULT
  191.  
  192. Call mywait()
  193. AUTHOR
  194. say ' Author: 'RESULT
  195.  
  196. Call mywait()
  197. say 'Quitting..'
  198. QUIT
  199.  
  200. exit
  201.  
  202. mywait: procedure
  203.    address command 'c:wait 2'
  204.    return
  205.